home *** CD-ROM | disk | FTP | other *** search
/ MacPeople 2001 February 15 / MACPEOPLE-2001-02-15.ISO.7z / MACPEOPLE-2001-02-15.ISO / オンラインウエア / 厳選オンラインウエア100 / マルチメディア / iView Multimedia 3.8.4ﾄ.sea / iView Multimedia 3.8.4ƒ / AppleScript Support / set desktop with marked file < prev    next >
Text File  |  2000-01-30  |  670b  |  23 lines
  1. tell application "iView Multimedia"
  2.     tell window 1
  3.         copy (the path of the first object whose mark id is not 0) to mymarked
  4.     end tell
  5.     
  6. end tell
  7.  
  8. on set_desktop_pic(file_path)
  9.     tell application "Appearance"
  10.         launch
  11.         if file_path is "no picture" then
  12.             set picture file of monitor 1 to no picture
  13.         else
  14.             display dialog "choose the monitor to place the picture on" buttons {"1", "2"} default button 1
  15.             set theButton to (button returned of the result)
  16.             set picture file of monitor (theButton as number) to file file_path
  17.             set picture positioning of monitor (theButton as number) to scaled
  18.         end if
  19.         quit
  20.     end tell
  21. end set_desktop_pic
  22.  
  23. set_desktop_pic(mymarked)